.IIF DF  R$$MPL	.TITLE  NETCM - CEX COMMON DATABASE
	.IIF NDF R$$MPL	.TITLE	CEXCM - CEX COMMON DATABASE
	.IDENT	/V03.19/
 
;
; Copyright (c) 1995-1999 by Mentec, Inc., U.S.A.
; All rights reserved
;
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
; TRANSFERRED.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
; AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
; CORPORATION.
;
; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
;
;
; MODULE DESCRIPTION:
;
;	COMMUNICATIONS EXECUTIVE COMMON DATABASE
;
; IDENT HISTORY:
;
; 1.00	14-DEC-79
;	DECNET-11M/S V3.0
;	DECNET-11M-PLUS V1.0
;
; 3.00	16-APR-82
;	DECNET-11M V3.1
;	DECNET-11M-PLUS V1.1
;
; 3.01	09-Sep-82
;	Add Network management completion listhead
;	Add Phase 4 cells ($NA, $NBRA, $NBEA, $AMAXH, $AMAXC, $HIORD)
;
; 3.02	12-Oct-82
;	Add cell for maximum protocol overhead from CETAB
;
; 3.03	17-Nov-82
;	Add secondary host listhead for Server Base systems
;
; 3.04	30-Nov-82
;	Add Broadcast routing timer ($ROUTB) and Broadcast router priority 
;	($RPRI)
;
; 3.05	16-Dec-82
;	Merge NETCM M+ specific cells into common CEXCM, remove unused
;	cells ($PBIAS,$PAVL) and remove IAS/D comditionals and code.
;	Condense new cells to one area of the common.
;	Add $DECPT, $NMLST, $SPAR1, and $SPAR2 cells.
;	Removed 50msec timer labels.
;
; 3.06	20-Dec-82
;	Conditionalized $PUMR for RSX11M only. This cell is defined in
;	LOWCR for RSX-11M-PLUS systems.
;
; 3.07	21-DEC-82
;	Keep Phase III symbols in for 1 release ($PAVL,$T50Q,$T50CL)
;
; 3.08	22-Dec-82
;	Modify (correct) $XAVL cell to be .WORD 0 instead of .WORD 1
;
; 3.09	22-Dec-82
;	Remove S$$BAS conditional from $SHLST (Secondary Host List)
;
; 3.10	22-Dec-82
;	Local node name ($NTNAM) must follow remote listhead ($RNNHD)
;
; 3.11	4-Jan-83
;	Correct URM location
;
; 3.12	19-Jan-83
;	conditionalize title for M and M Plus
;
; 3.13	03-Mar-83
;	Place M+ conditional around cells moved to DECnet Home Block.
;
; 3.14	22-Mar-83
;	Add URM cells at the end of all timer queue blocks for
;	RSX-11M-Plus multi-processor systems
;
; 3.15	28-Mar-83
;	Put back 4 cells for 3271 product (uses 1.0 comm exec)
;
; 3.16	3-May-83
;	Correct table of timer blocks for multiprocessors
;
; 3.17	16-Oct-84
;	Add symbols for $ZTIME+2 and $NMCLH+2
;
; 3.18	20-Oct-86
;	Add $LTEEP LAT exit entry point vector
;
; 3.19	29-May-87
;	Increase the size of the Event Descriptor Block by 3 words
;
	.IF DF M$$NET

	.IF NDF	R$$MPL

	.MCALL	CCBDF$,NKRDF$,OPTDF$

	CCBDF$			; DEFINE CCB OFFSETS
	NKRDF$	<:>,<=>		; DEFINE NETWORK KRB OFFSETS
	OPTDF$			; DEFINE CEX OPTIONS FLAGS

	.PSECT	CEXCOM

	.ENDC	; NDF R$$MPL


;+
; 	COMMUNICATION SYSTEM COMMON DATA BASE
; 		( ORDERING IMPACTS VNP )
;
;-
 
$PDVTA::.BLKW	1		; ADDRESS OF PDV ADDRESS TABLE
$SLTMA::.BLKW	1		; ADDRESS OF SLT ADDRESS TABLE
$LLCTA::.BLKW	1		; ADDRESSS OF LLC REVERSE MAPPING TABLE
$PDVNM::.BLKW	1		; NUMBER OF PDV ENTRIES
$SLTNM::.BLKW	1		; NUMBER OF SYSTEM LINES
$CCBNM::.BLKW	1		; # OF CCB'S ALLOCATED
$CCBSZ::.BLKW	1		; # BYTES / CCB
$RDBNM::.BLKW	1		; # OF RDB'S ALLOCATED
$RDBSZ::.BLKW	1		; # BYTES / RDB
$SDBNM::.BLKW	1		; # OF SDB'S ALLOCATED
$SDBSZ::.BLKW	1		; # BYTES / SDB
$CCBCT::.BLKW	1		; COUNTER OF CURRENT # OF CCBS IN POOL
$CCBAF::.BLKW	1		; COUNTER OF # OF CCB ALLOCATION FAILURES
$LDBAF::.BLKW	1		; COUNTER OF # OF LDB ALLOCATION FAILURES
$CCBAL::.BLKW	1		; COUNTER OF # OF DYNAMIC CCB ALLOCATIONS
$RDBTH::.BLKW	1		; POOL THRESHOLD FOR LDB ALLOCATON FAILURE
$CMPDV::.BLKW	1		; PDV INDEX OF CURRENT DISPATCHED PROCESS
$ZTIME::.BLKW	1		; TIME SINCE COUNTERS LAST ZEROED
$ZTIM2::.BLKW	1		; TIME SINCE SYSTEM LAST ZEROED
 
	.IF DF	M$$PRO
	.WORD	0		; UNIBUS RUN MASK			
	.ENDC

$CMFRK::.WORD	0		; INITIAL LINK MARKS FORK BLOCK FREE
	.WORD	0		; ADDRESS OF FORK PROCESS
	.WORD	0		; FORK PROCESS QUEUE
	.WORD	.-2

	.WORD	0		; APR5 BIAS FOR FORK LEVEL DISPATCH
				; FREE WORD ON UNMAPPED SYSTEMS

$T50Q::				; PHASE III COMPATIBILITY 
$T100Q::.WORD	0		; 100 MSEC TIMER QUEUE
	.WORD	.-2

$STMFC::
	.IF NDF	R$$MPL
	.WORD	FC.TIM+FS.STM	; FUNCTION CODE TO DISPATCH 50 MSEC TIMEOUTS
	.IFF	; NDF R$$MPL
	.WORD	0
	.ENDC	; R$$MPL

$T50CL::			; PHASE III COMPATIBILITY
$T100C::.WORD	0,0,0,0,0	; 100 MSEC CLOCK QUEUE ENTRY
	.WORD	0		; ADDRESS OF PROCESSING ROUTINE
				; (FILLED IN BY NTL)
	.WORD	0		; APR5 BIAS FOR LOADABLE DRIVERS

	.IF DF	M$$PRO
	.WORD	0		; Unibus run mask
	.ENDC
 
$LTMFC::
	.IF NDF	R$$MPL
	.WORD	FC.TIM+FS.LTM	; FUNCTION CODE TO DISPATCH LONG TIMEOUTS
	.IFF	; NDF R$$MPL
	.WORD	0
	.ENDC	; NDF R$$MPL

$T1SCL::.WORD	0,0,0,0,0	; 1 SECOND CLOCK QUEUE ENTRY
	.WORD	0		; ADDRESS OF PROCESSING ROUTINE
				; (FILLED IN BY NTL)
	.WORD	0		; APR5 BIAS FOR LOADABLE DRIVERS

	.IF DF	M$$PRO
	.WORD	0		; Unibus run mask
	.ENDC

$DECPT::.WORD	0		; Pointer to DECnet Home Block
$PSIPT::.WORD 	0		; POINTER TO PSI HOME BLOCK
$SNAPT::.WORD	0		; POINTER FOR SNA
 
$DDFNC::
	.IF NDF R$$MPL
	.WORD	FC.PWR		; POWERFAIL RECOVERY FUNCTION CODE
	.IFF	; NDF R$$MPL
	.WORD	0
	.ENDC	; NDF R$$MPL

$CCBLH::.BLKW	1		; POINTER TO FIRST FREE CCB
$SDBCT::.BLKW	1		; COUNTER OF CURRENT SDB'S IN POOL
$SDBLH::.BLKW	1		; POINTER TO FIRST FREE SMALL DATA BUFFER
	.BLKW	1		; SECOND HALF OF ADDRESS DOUBLEWORD
$SDBAF::.BLKW	1		; COUNTER OF # OF SDB ALLOCATION FAILURES
$RDBCT::.BLKW	1		; COUNTER OF CURRENT RDB'S IN POOL
$RDBLH::.BLKW	1		; POINTER TO FIRST FREE RECEIVE BUFFER
	.BLKW	1		; SECOND HALF OF ADDRESS DOUBLEWORD
$RDBAF::.BLKW	1		; COUNTER OF # OF RDB ALLOCATION FAILURES
$RDQSL::.BLKW	1		; SYSTEM LINE # TO CHECK ON NEXT BUFFER RETURN
$RDQCT::.BLKW	1		; NUMBER OF BUFFER WAIT REQUESTS AND FLAG
$NTLPT::.BLKW	1		; NTL POINTER TO IMPURE AREA IN NTPOOL
$CXOPT::.BLKW	1		; COMM/EXEC OPTIONS INCLUDED
 
$NBIAS::.BLKW	1		; POINTER TO NON-UMR MAPPED POOL
$QBIAS::.BLKW	1		; POINTER TO UMR-MAPPED PORTION OF POOL
$QSTRT::.BLKW	1		; ORIGINAL BIAS OF UMR-MAPPED PORTION OF POOL
	.IF NDF R$$MPL
$PUMR::	.BLKW	1		; STARTING UMR BIAS
	.ENDC 
$PWRF1::.BLKW	1		; POWER FAIL FLAG
$XBIAS::.BLKW	1		; BIAS OF EXTENDED SINGLE WORD POOL
$PAVL::				; PHASE III COMPATIBILITY
$XAVL::	.WORD	0		; POINTER TO FIRST FREE BLOCK IN EXTENDED POOL
$NMLST::.WORD	0		; Logical Name Listhead
$OBJHD::.BLKW	1		; OBJECT TABLE LISTHEAD

$TK100::			; NUMBER OF CLOCK TICKS IN 100 MSEC
$TCK50::.WORD	4		; NUMBER OF CLOCK TICKS IN 50 MSEC
$SQRCM::.BYTE	0		; SQ ROOT LIMIT FOR COMPONENT BUFFER ALLOCATION
	.BYTE	0		; NUMBER OF ACTIVE COMPONENTS

$MAXOV::.BLKW	1		; MAXIMUM PROTOCOL OVERHEAD 

$LGPDV::.BLKW	1		; PDV INDEX OF EVENT LOGGER
$LGDDB::.BLKW	1		; ADDRESS OF EVENT LOGGER DATABASE
$FILHD::.BLKW	1		; EVENT FILTER LISTHEAD
$LGSTT::.BLKW	1		; EVENT LOGGER STATUS

$EVDSC::.BLKW	11.		; EVENT DESCRIPTOR BLOCK

$LGFNB::.BLKW	3		; EVENT LOGGER FILENAME BLOCK - FILE ID
	.RAD50	/EVENTLOG/	; FILENAME
	.RAD50	/SYS/		; FILE TYPE
	.BLKW			; VERSION NUMBER
	.ASCII	/LB/		; DEVICE NAME
	.BLKW			;  AND UNIT
$LGUIC::.BYTE	6,1		; UIC FOR LOGGING FILE (DEFAULT = [1,6])
$LGMON::.RAD50	/MON.../	; MONITOR TASK NAME
$LGCON::.ASCII	/CO/		; CONSOLE DEVICE NAME
	.WORD	0		;  AND UNIT
$CELFN::.WORD	0		; CEX LOGGING FUNCTION CODE (MUST BE ZERO)

$NMCLH::.WORD	0		; NETWORK MANAGEMENT COMPLETION LISTHEAD
$NMCL2::.WORD	.-2

	.IF DF	R$$MPL
$NETPF::.WORD	0		; POWERFAIL ENTRY POINT	
$NTLAL::.WORD	0		; NTL POINTER TO CEX POOL LISTHEAD
	
	.IF DF	M$$PRO							

TIMERS:	.WORD	-1		; SHOW TIMER IS NOT ACTIVE
	.WORD	0,0,0,0,0	; PROCESSOR #1 DEPENDANT ONE SECOND
	.WORD	0		;  TIMER QUEUE BLOCK
	.WORD	0
	.WORD	0
$$$STM=.-TIMERS

	.WORD	0,0,0,0,0	; PROCESSOR #1 DEPENDANT 100 MSEC
	.WORD	0		;  TIMER QUEUE BLOCK
	.WORD	0
	.WORD	0
$$$LEN=.-TIMERS

	.REPT	M$$PRO-1
	.WORD	-1		; SHOW TIMER IS NOT ACTIVE
	.WORD	0,0,0,0,0	; PROCESSOR #2 - N DEPENDANT ONE SECOND
	.WORD	0		;  TIMER QUEUE BLOCK
	.WORD	0
	.WORD	0

	.WORD	0,0,0,0,0	; PROCESSOR #2 - N DEPENDANT 100 MSEC
	.WORD	0		;  TIMER QUEUE BLOCK
	.WORD	0
	.WORD	0
	.ENDR

$$$OFF=2
$1SCTB::.REPT	M$$PRO
	.WORD	TIMERS+$$$OFF	; POINTER TO PROCESSOR DEPENDANT TIMER CELL
$$$OFF=$$$OFF+$$$LEN
	.ENDR

$$$OFF=$$$STM
$STMTB::.REPT	M$$PRO
	.WORD	TIMERS+$$$OFF	; POINTER TO PROCESSOR DEPENDANT TIMER CELL
$$$OFF=$$$OFF+$$$LEN
	.ENDR

$CRESL::LCKDF$	SPIN		; SERIALIZE ACCESS TO COMMEXEC RESOURCES
 
	.ENDC	; M$$PRO
	.ENDC	; R$$MPL

$SHLST::.WORD	0		; SECONDARY HOST LISTHEAD

$IMASK::			; For 3271 back compatibility (1.0 comm exec)
$EMASK::			;  ...
$ETIMR::			;  ...
$SPAR1::.WORD	0		; First Double word spare cell
	.WORD	0
$PBIAS::			; For 3271 back combatibility (1.0 comm exec)
$SPAR2::.WORD	0		; Second Double word spare cell
	.WORD	0
;
	.IF DF	R$$MPL		; Leave cells for M+ backwards compatability
;
; Cells to be moved to the DECnet Home Block
;
$ANNHD::.BLKW	1		; ALIAS NODE NAME LISTHEAD
$RNNHD::.WORD	.+2		; REMOTE NODE NAME LISTHEAD
	.WORD	0		; TEMPORARY END OF REMOTE NAME LISTHEAD
$NTNAM::.BLKB	6		; LOCAL NODE NAME
$NSPNM::.BLKW	1		; LOCAL NODE NUMBER
$NODID::.BLKW	1		; LENGTH OF LOCAL NODE IDENT STRING
	.BLKB	32.		; LOCAL NODE IDENTIFICATION
$HOST::	.BLKW	1		; HOST NODE ADDRESS
$NLN::	.BLKW	1		; NUMBER OF ROUTING CHANNELS FOR NSP
$NN::	.BLKW	1		; NUMBER OF NODES IN NETWORK
$MAXC::	.BLKW	1		; MAXIMUM COST
$MAXH::	.BLKW	1		; MAXIMUM HOPS
$MAXV::	.WORD	20.		; MAXIMUM VISITATION COUNT
$SQRTL::.BLKW	1		; SQUARE ROOT LIMITING FACTOR
$ROUTM::.WORD	30.		; ROUTING TIMER (SECONDS)
;
	.ENDC	; R$$MPL
;
; SYNC AND PAD BUFFER DESCRIPTORS
;

	$SYNC==226
	$SYNCT==8.

	$PAD==377
	$PADSH==2.
	$PADKL==10.

$SYNB::
	.WORD	0
	.WORD	$SYNBF
	.WORD	$SYNCT

$PADB::
	.WORD	0
	.WORD	$PADBF
	.WORD	$PADKL

$PADBF::
	.REPT	$PADKL
	.BYTE	$PAD
	.ENDR
$SYNBF::
	.REPT	$SYNCT
	.BYTE	$SYNC
	.ENDR

;
; COMM EXEC FREE SPACE POINTER
;
	.IF NDF	R$$MPL
	.PSECT	$$$POL

	.WORD	3		; ROUNDING FACTOR
$CEAVL::.WORD	0		; POINTER TO FIRST FREE BLOCK
	.WORD	0

	.PSECT

	.IFF	; NDF R$$MPL

	.IF NDF	K$$DAS

$LTEEP::.WORD	$SPVEX		; LAT PROCESS TASK EXIT ENTRY POINT
				; ADDRESS. INITIALIZED TO A RETURN IN
				; IN IOSUB, WILL BE FILLED IN WHEN
				; LAT IS LOADED

	.IFF	; NDF K$$DAS

$LTEEP::.WORD	0

	.ENDC	; NDF K$$DAS

	.ENDC	; NDF R$$MPL

	.ENDC	; DF M$$NET

	.IF DF R$$MPL
$NTEND::			; END OF ARE TO DEALLOCATE IN SET /NOCEX
				; MCR COMMAND
	.ENDC	; R$$MPL

 
	.END